nGonalNumbers :: Int -> [Int]
nGonalNumbers n = scanl1 (+) [1,(n-1)..]

fourDigitNGonalNumbers n = takeWhile (<10000) $ dropWhile (<999) $ nGonalNumbers n